home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / SHELWR0.M < prev    next >
Encoding:
Text File  |  1989-09-09  |  802 b   |  38 lines
  1. MODULE SHELWR0;
  2.  
  3. (* Testet ShellWrite-Funktion *)
  4.  
  5. (*$E MOS *)
  6. IMPORT TOSIO;
  7. FROM InOut IMPORT WriteString, Write, WriteLn, WriteCard, Read, ReadString,
  8.         WriteHex;
  9.  
  10. IMPORT GEMEnv, AESMisc, PrgCtrl;
  11.  
  12. VAR s,s2: ARRAY [0..255] OF CHAR;
  13.   handle: GEMEnv.DeviceHandle;
  14.   ok: BOOLEAN;
  15.  
  16. PROCEDURE rd;
  17.   BEGIN
  18.     AESMisc.ShellRead (s, s2);
  19.     WriteString ('CMD : '); WriteString (s); WriteLn;
  20.     WriteString ('TAIL: '); WriteString (s2); WriteLn;
  21.   END rd;
  22.   
  23. VAR ch: CHAR;
  24.  
  25. BEGIN
  26.   GEMEnv.InitGem (GEMEnv.RC, handle, ok);
  27.   
  28.   rd;
  29.   
  30.   WriteString ('ShellWrite (noGemAppl)'); WriteLn;
  31.   
  32.   AESMisc.ShellWrite (AESMisc.startAppl, AESMisc.graphicPrgm,
  33.                       AESMisc.noGemAppl, 'D:\GEP_ED.PRG', 'D:\DOC\TODO.TXT');
  34.   rd;
  35.   
  36.   Read (ch)
  37. END SHELWR0.
  38.